#lang scheme
(require "moeanui.rkt")
(require 2htdp/image)
(require 2htdp/universe)

(define (balle-sur-fil)
  (define HAUTEUR 400)
  (define LARGEUR 400)
  (define HAUT/2 (/ HAUTEUR 2))
  (define LARG/2 (/ LARGEUR 2))
  (define INIT (make-motion LARG/2 HAUT/2 0))
  (define SCENE (rectangle LARGEUR HAUTEUR 'solid "yellow"))
  (define BALLE (circle 10 'solid "red"))
  (define (suivant m)
    (define nouvellePosition (read-sms-raw (machine-type)))
    ; histoire de calibrer si c'est pas fait
    ; et baisser la sensibilité
    (define newX (+ (motion-x m) (- 0 (/ (motion-x nouvellePosition) 20))))
    (define newY (+ (motion-y m) (/ (motion-y nouvellePosition) 20)))
    (make-motion newX newY 0))
  (define (dessiner m)
    (place-image BALLE (motion-x m) (motion-y m) SCENE))
  (big-bang INIT (on-tick suivant 1/100) (on-draw dessiner)))